home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / sf40_a.arc / NUM.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1990-12-09  |  1.8 KB  |  50 lines
  1. 10   KEY OFF:CLS
  2. 11   SCREEN 1
  3. 13   COLOR 1,7
  4. 20  LOCATE 22,20:PRINT"PRESS A NUMBER           <ESC> FOR MENU"
  5. 25  K3$=INKEY$:IF K3$="" THEN 25
  6. 26  IF ASC(K3$)=27 THEN CHAIN "TEST1",,ALL
  7. 30  L=ASC(K3$)-47:IF L>10 OR L<0 THEN 20
  8. 40  ON L GOSUB 135,190,240,280,320,360,400,440,480,520
  9. 50  GOTO 20
  10. 135  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  11. 170  N0$="U3H3U6E2R2F2D1G1H1F1E1U1H2U1E1R1F2D1G1E1U1H2E1R1F3D2G1L1H1F1R1E1U2H1F0R1F2D1 D2L2U1H1G1L1G1D2r1f1r1e1u2r1f1d3g3d3"
  12. 180  DRAW "C3":DRAW N0$
  13. 181  RETURN
  14. 190  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  15. 210  N1$="U2  H3U5r2f2g1l1h1f1r1e1h2u2r2f2g1l1h1f1r1e1h2 u1e1r1f2d1g1l1h1f1r1e1u1u7e1r1f1               d7F2  l3g1d1f1r2l2h1u1e1r4f1d5g2d2
  16. 220  DRAW "C3":DRAW N1$
  17. 230  RETURN
  18. 240  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  19. 250   N2$="U2  H3U5r2f2g1l1h1f1r1e1h2u2r2f2g1l1h1f1r1e1 h3H5U1E1R1F6E6R1F1D1G5D1    F2  l4g1d1f1r2l2h1u1e1r5f1d3g3d3
  20. 260  DRAW "C3":DRAW N2$
  21. 270  RETURN
  22. 280  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  23. 290   N3$="U3  H3U5r2f2g1l1h1f1r1e1h2u2r2f2g1l1h1f1r1e1 h3H5U1E1R1F6r1E6R1F1D1G5D2    F3R2E1R3D1G4L2D1G2D2
  24. 300  DRAW "C3":DRAW N3$
  25. 310  RETURN
  26. 320  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  27. 330  N4$="U2H2U3 h3u2e1r1d1f3u1h2u4e1r1f1d2f2U9E1R1F1D7f1e1U8E1R1F1D11f2L7F2R1L1H2R7D4G3D3
  28. 340  DRAW "C3":DRAW N4$
  29. 350  RETURN
  30. 360  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  31. 370  N5$="U2H2U3 h3u2e1r1d1f3u1h2u4e1r1f1d2f2U9E1R1F1D7f1e1U8E1R1F1D11f2r2e1r3d1g4l2d1g2d2
  32. 380  DRAW "C3":DRAW N5$
  33. 390  RETURN
  34. 400  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  35. 410  N6$="U3H4U3E1R6F1G2L1R1E2H1L5U1 h2u4e1r1f1d2f2U9E1R1F1D7f1e1U8E1R1F1D11f3L7F3R1L1H3R7D4G2D3
  36. 420  DRAW "C3":DRAW N6$
  37. 430  RETURN
  38. 440  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  39. 450  N7$="U3H2U3 h2u4e1r1F1d3f3R1 E1U1H2L1G1E1R1     U9E1R1F1D7f1e1U8E1R1F1D11f2L7F2R1L1H2R7D4G2D3
  40. 460  DRAW "C3":DRAW N7$
  41. 470  RETURN
  42. 480  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  43. 490  N8$="U2H2U3 h3u2e1r1d1f3u1h2u4e1r1f1d2f2U1E1R1F3D1G1L1R1E1U1H3R1e1U8E1R1F1D11f3L7F2R1L1H2R7D4G3D2
  44. 500  DRAW "C3":DRAW N8$
  45. 510  RETURN
  46. 520  CLS:DRAW "S14":LOCATE 20,22:PRINT K3$
  47. 530   N9$="U1H1U3H4U2E2R1D1G1D1F1U2E2R1D1G1D2F1U3E3R1D2G1D2F1E3R2F2D1L3G1D2F1R1E1U2R2D3G3L1G2"
  48. 540  DRAW "C3":DRAW N9$
  49. 550  RETURN
  50.